home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt126b].d64 / rl.ini-editor (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  201 lines
  1. 100 XT=49152
  2. 110 RL=0:ID=PEEK(186)
  3. 120 DIM FP%(32)
  4. 130 DIM FP$(32)
  5. 140 DIM RP$(32,4)
  6. 150 RP=0
  7. 160 RS=0
  8. 199 :
  9. 200 T0$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][155]"
  10. 900 POKE53280,0:POKE53281,0
  11. 999 :
  12. 1000 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
  13. 1010 PRINTT0$
  14. 1020 GOSUB 30000
  15. 1030 GOSUB 29000
  16. 1040 GOSUB 20000
  17. 1050 GOSUB 10000
  18. 1060 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
  19. 1070 PRINTT0$
  20. 1080 PRINT"[155]ALL DONE..."
  21. 1090 END
  22. 1099 :
  23. 1900 END
  24. 10000 OPEN 2,ID,2,"@0:RL.INI,U,W"
  25. 10010 FOR P0=1 TO RP
  26. 10020 PRINT#2,RP$(P0,1);",";
  27. 10030 PRINT#2,RP$(P0,3);",";
  28. 10040 PRINT#2,RP$(P0,2);",";
  29. 10050 PRINT#2,RP$(P0,4)
  30. 10060 NEXT
  31. 10070 CLOSE2:RETURN
  32. 10099 :
  33. 20000 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
  34. 20010 PRINTT0$:GOSUB 60000:GOSUB 51000
  35. 20099 :
  36. 21000 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
  37. 21010 PRINTT0$:GOSUB21300
  38. 21020 PRINT"-1- [155]PARTITION TYP NATIVE"
  39. 21030 PRINT"-2- [155]PARTITION TYP 1541"
  40. 21040 PRINT"-3- [155]PARTITION TYP 1571"
  41. 21050 PRINT"-4- [155]PARTITION TYP 1581"
  42. 21060 PRINT"-5- [155]PARTITION TYP DACC"
  43. 21070 PRINT"-6- [155]INSERT 128-BLOCK DACC"
  44. 21080 PRINT"-9- [155]SHOW 'RL.INI'-FILE DATA"
  45. 21090 PRINT"-0- [155]EXIT, SAVE 'RL.INI' TO DISK."
  46. 21095 PRINTT0$:PRINT"[155]HIT RUN/STOP + RESTORE TO ABORT!"
  47. 21099 :
  48. 21200 POKE 198,0:WAIT 198,1:GET SP$
  49. 21210 IF SP$="0" THEN RETURN
  50. 21220 IF SP$="1" THEN 22000
  51. 21230 IF SP$="2" THEN 22000
  52. 21240 IF SP$="3" THEN 22000
  53. 21250 IF SP$="4" THEN 22000
  54. 21260 IF SP$="5" THEN 22000
  55. 21270 IF SP$="6" THEN 22000
  56. 21280 IF SP$="9" THEN 22100
  57. 21290 GOTO 21200
  58. 21299 :
  59. 21300 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
  60. 21310 PRINTT0$"[178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178]"
  61. 21320 PRINT"[221][155]FREE BLOCKS:      [221][155][157][157][157][157][157][157][157]"FM
  62. 21330 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  63. 21340 RETURN
  64. 22000 GOSUB 28900
  65. 22010 RP=RP+1
  66. 22020 RP$(RP,1)=RIGHT$("  "+STR$(PN),2)
  67. 22030 RP$(RP,2)=LEFT$(PN$+"                ",16)
  68. 22040 RP$(RP,3)=RIGHT$("  "+STR$(PT),2)
  69. 22050 RP$(RP,4)=RIGHT$("      "+STR$(PS),5)
  70. 22060 FM=FM-PS
  71. 22070 IFRP=31THENRETURN
  72. 22080 GOTO21000
  73. 22099 :
  74. 22100 A1=0
  75. 22110 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
  76. 22120 PRINTT0$""
  77. 22130 A2=16:IFA1>0THENA2=15
  78. 22140 FORA0=1TOA2
  79. 22150 PRINT RIGHT$("   "+STR$(A1+A0),3)" - ";
  80. 22160 IFVAL(RP$(A1+A0,1))=0THEN22230
  81. 22170 PRINT RP$(A1+A0,1)",";
  82. 22180 PRINT RP$(A1+A0,2)",";
  83. 22190 A3=VAL(RP$(A1+A0,3))
  84. 22200 PRINT MID$("????CMD 154115711581????????DACC",1+A3*4,4);",";
  85. 22210 PRINT RP$(A1+A0,4)
  86. 22220 GOTO22240
  87. 22230 PRINT " NOT IN USE..."
  88. 22240 NEXT
  89. 22299 :
  90. 22300 PRINT""T0$:PRINT"HIT ANY KEY TO CONTINUE"
  91. 22310 POKE 198,0:WAIT198,1
  92. 22320 A1=A1+16:IFA1=16THEN22110
  93. 22330 GOTO21000
  94. 28000 REM INPUT PART.-NO.
  95. 28010 INPUT"PARTITION-NR. ";PN
  96. 28020 IF PN<1ORPN>31 THEN 28010
  97. 28030 F%=0:FOR A0=1 TO 31
  98. 28040 IF VAL(RP$(A0,1))=PNTHENF%=-1
  99. 28050 NEXT:IFF%<>0THEN28010
  100. 28060 RETURN
  101. 28099 :
  102. 28100 REM INPUT PART.-NAME
  103. 28110 IF SP$="6"THENPN$="DACC"+STR$(PN):RETURN
  104. 28120 INPUT"PARTITION-NAME ";PN$
  105. 28130 IF PN$="" THEN PN$="RL"+STR$(PN)
  106. 28140 RETURN
  107. 28199 :
  108. 28200 REM INPUT PART.-TYPE
  109. 28210 IF SP$="1" THEN PT=1
  110. 28220 IF SP$="2" THEN PT=2
  111. 28230 IF SP$="3" THEN PT=3
  112. 28240 IF SP$="4" THEN PT=4
  113. 28250 IF SP$="5" OR SP$="6" THEN PT=7
  114. 28260 RETURN
  115. 28299 :
  116. 28300 REM INPUT PART.SIZE
  117. 28310 IFPT=2THENPS=683:RETURN
  118. 28320 IFPT=3THENPS=1366:RETURN
  119. 28330 IFPT=4THENPS=3200:RETURN
  120. 28340 IFSP$="6"THENPS=128:RETURN
  121. 28350 PS=0:INPUT"PARTITION-SIZE ";PS
  122. 28360 IF(PS=-1)AND(PT=1)THENPS=INT(FM/256)*256:RETURN
  123. 28370 IFPS=0THEN28350
  124. 28380 IF(PS/128)<>INT(PS/128)THEN28350
  125. 28390 IFPT<>1THENRETURN
  126. 28400 IF(PS/256)<>INT(PS/256)THEN28350
  127. 28410 RETURN
  128. 28499 :
  129. 28900 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
  130. 28910 PRINTT0$
  131. 28920 GOSUB 28000
  132. 28930 GOSUB 28100
  133. 28940 GOSUB 28200
  134. 28950 GOSUB 28300
  135. 28960 RETURN
  136. 29000 REM LAUFWERK WAEHLEN
  137. 29010 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
  138. 29020 PRINTT0$
  139. 29030 PRINT "SAVE 'RL.INI'-FILE TO DRIVE  ";ID
  140. 29040 POKE198,0:INPUT "[145]";A0
  141. 29050 IF A0>=8 AND A0<=31 THEN 29070
  142. 29060 GOTO 29040
  143. 29070 OPEN15,A0,15:CLOSE15
  144. 29080 IF ST<>0 THEN 29040
  145. 29099 :
  146. 29100 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0"
  147. 29110 PRINTT0$
  148. 29120 ID=A0:RETURN
  149. 29990 END
  150. 29999 END
  151. 30000 REM GET RAMLINK-DEVICE
  152. 30010 PRINT"   SEARCHING FOR RAMLINK..."
  153. 30020 A0=8:RL=0
  154. 30030 POKE144,0:OPEN15,A0,15:CLOSE15:IFST<>0THENGOTO30090
  155. 30040 A$="":OPEN15,A0,15
  156. 30050 PRINT#15,"M-R"+CHR$(160)+CHR$(254)+CHR$(6)
  157. 30060 FORI=1TO6:GET#15,B$:A$=A$+B$:NEXT
  158. 30070 CLOSE15
  159. 30080 IFA$="CMD RL"THEN30200
  160. 30090 A0=A0+1:IFA0<32THEN30030
  161. 30100 PRINT"[155][147]INSTALLATION ERROR !"
  162. 30110 PRINTT0$
  163. 30120 PRINT"RAMLINK NOT AVAILABLE !"
  164. 30130 END
  165. 30199 :
  166. 30200 RL=A0
  167. 30210 PRINT"[144][147][155]RAMLINK INSTALLATION 1.0":PRINTT0$
  168. 30220 RETURN
  169. 30299 :
  170. 39999 :
  171. 51000 BA=XT+256
  172. 51010 SA=0
  173. 51020 BH=PEEK(BA+21):SH=PEEK(BA+29)
  174. 51030 BM=PEEK(BA+22):SM=PEEK(BA+30)
  175. 51040 BL=PEEK(BA+23):SL=PEEK(BA+31)
  176. 51050 OS=BH*256^2+BM*256+BL
  177. 51060 SI=SH*256^2+SM*256+SL
  178. 51070 MX=OS-SA
  179. 51080 MM=OS+SI:FM=MX
  180. 51090 RETURN
  181. 51999 :
  182. 59990 END
  183. 60000 REM READ PARTITION TABLE
  184. 60010 PRINT"READING PARTITION TABLE..."
  185. 60020 TR=1:AD=XT+256
  186. 60030 FORSE=0TO4
  187. 60040 GOSUB61000
  188. 60050 AD=AD+256
  189. 60060 NEXT
  190. 60070 RETURN
  191. 60099 :
  192. 61000 REM READ SECTOR TO BUFFER
  193. 61010 SYS57513
  194. 61020 POKE56865,TR:POKE56866,SE
  195. 61030 POKE56867,AD-(INT(AD/256)*256)
  196. 61040 POKE56868,INT(AD/256)
  197. 61050 POKE56869,255:POKE56864,128
  198. 61060 SYS65057
  199. 61070 RETURN
  200. 61099 :
  201.